home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
025a
/
oclip.zip
/
ODEMO1.PRG
< prev
next >
Wrap
Text File
|
1991-11-25
|
257b
|
21 lines
#include "oclip.ch"
LOCAL o1 := Sample1():New("World")
o1:Hello()
RETURN
CLASS Sample1
VAR Who
METHOD New,Hello
ENDCLASS
METHOD FUNCTION New(cWho)
::Who := cWho
RETURN Self
METHOD FUNCTION Hello
? "Hello",::Who
RETURN Self